Filename: /text/sbasic/shared/03090203.xhp

While...Wend Statement[Runtime]
While...Wend ステートメント [実行時](hd_id3150400.1)

When a program encounters a While statement, it tests the condition. If the condition is False, the program continues directly following the Wend statement. If the condition is True, the loop is executed until the program finds Wend and then jumps back to the While statement. If the condition is still True, the loop is executed again.
プログラムの実行が While ステートメントに差し掛かると、ループ条件の判定が行われます。この判定結果が False であれば、Wend ステートメント以降のプログラムコードが実行されます。判定結果が True であれば、Wend まで続くループ部のプログラムコードを実行してから、再度 While ステートメントの位置に実行行が戻ります。こうした判定結果が True であり続ける限り、ループ部が繰り返し実行されます。(par_id3151211.2)

Unlike the Do...Loop statement, you cannot cancel a While...Wend loop with Exit. Never exit a While...Wend loop with GoTo, since this can cause a run-time error.
Do...Loop とは異なり、While...Wend は Exit でループを中断することができません。また While...Wend ループを GoTo で抜け出すと、実行時エラーが発生することがあるため、この方法でループを中断させることはできません。(par_id3151041.3)

A Do...Loop is more flexible than a While...Wend.
こうした理由から、より柔軟な対応の行える Do...Loop の使用が推奨されます。(par_id3145172.4)

Syntax:
構文:(hd_id3155133.5)

While Condition [Statement] Wend
While Condition [Statement] Wend(par_id3147288.6)

Example:
例:(hd_id3153139.7)

Sub ExampleWhileWend
Sub ExampleWhileWend(par_id3159153.8)

Dim stext As String
Dim stext As String(par_id3151114.9)

Dim iRun As Integer
Dim iRun As Integer(par_id3153143.10)

sText ="This is a short text"
sText ="This is a short text"(par_id3155306.11)

iRun = 1
iRun = 1(par_id3154011.12)

while iRun < Len(sText)
while iRun < Len(sText)(par_id3147215.13)

if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )(par_id3147427.14)

iRun = iRun + 1
iRun = iRun + 1(par_id3149665.15)

Wend
Wend(par_id3152939.16)

MsgBox sText,0,"Text encoded"
MsgBox sText,0,"Text encoded"(par_id3153189.17)

end sub
end sub(par_id3145251.18)